<html> 
<head> 
<title> </title>
<style> 
px {font-family: "Lucida Console", Monaco }
p { font-size:100%; line-height:1.1em; }
body {xfont-style: sans-serif}
body {
color:#333; font-family:Verdana, Arial, Helvetica, sans-serif; font-size:1em; line-height:1.3em; }
a:visited { color:#666; }
h1,h2,h3,h4,h5,h6 { color:#333; font-family:georgia, verdana, sans-serif; }
h1 { font-size:150%; page-break-before:auto;background-color: #aaaaff}
h2 { font-size:143%;color:teal; }
h3 { font-size:134%;color:blue; }
h4 { font-size:120%;color:gray; }
img { max-width: 55em}
p{ padding: 0;margin:0; }
p{ padding-right:1.4em; }
p{ padding-bottom:0.1em; }
p{ padding-top:1em; }
p{ whitespace: pre-wrap; }
h5,h6 { font-size:100% }
a.nav,a:link.nav, a:visited.nav { background-color:#FFF; color:#000; }
XXtable { border:double #000; border-collapse:collapse; }
XXtable { border-collapse:collapse; }
XXtd { border:thin solid #888; }
XXtd { border:none; }
li { margin-bottom:0.5em; }
blockquote { display:block; font-size:100%; line-height:1.1em; margin:0 0 0.5em; padding:0 2.5em; }
pre { background-color:#DDD; font-size:100%; overflow:auto; padding:1em; }
a,li span { color:#000; }
a:hover, a.nav:hover, a:hover math { background-color:#000; color:#FFF; }
#Container { margin:0 10px; text-align:center; background-color: #BBB}
#Content { border-top:none; margin:auto; padding:0.3em; text-align:left; width:100%; max-width:55em; background:#FFF}
span.webName { font-size:.5em; }
textarea#content { font-size: 1em; line-height: 1.125; }
h1#pageName { line-height:1em; margin:0.2em 0 0.2em 0; padding:0; }
.property { color:#666; font-size:100%; }
a.existingWikiWord[title]{ //border: 1px dashed #BBB; }
.byline { color:#666; font-size:1.0em; font-style:italic; margin-bottom:1em; padding-top:1px; } 
</style> 
</head>
<BODY bgcolor=#F0F0F0 text=#000000 link=#0000ff vlink=#C000C0 alink=#ff0000><A NAME=top></A>
<h5><a href="https://github.com/urbanjost/M_strings">[UP]</a></h5>
<div id="Container">
<div id="Content">
<CENTER>
<H1><HR><I>Manual Reference Pages &nbsp;-&nbsp;</I><NOBR>paragraph (3m_strings)</NOBR><HR></H1>
</CENTER>
<A name=0>

     <H3>NAME</H3>

</A>
<BLOCKQUOTE>
<B>paragraph</B>(3f) - [M_strings:TOKENS] break a long line into a paragraph
(LICENSE:PD)
<P>
</BLOCKQUOTE>
<A name=contents></A><H3>CONTENTS</H3></A>
<BLOCKQUOTE>
<A HREF=#1>Synopsis</A><BR>
<A HREF=#2>Description</A><BR>
<A HREF=#3>Options</A><BR>
<A HREF=#4>Returns</A><BR>
<A HREF=#5>Example</A><BR>
<A HREF=#6>Author</A><BR>
<A HREF=#7>License</A><BR>
</BLOCKQUOTE>
<A name=8>

     <H3>SYNOPSIS</H3>

</A>
<BLOCKQUOTE>
function <B>paragraph</B>(source_string,length)
<P>
<PRE>
   character(len=*),intent(in)       :: source_string
   integer,intent(in)                :: length
   character(allocatable(len=length)    :: paragraph(:)
<P>
</PRE>
</BLOCKQUOTE>
<A name=2>

     <H3>DESCRIPTION</H3>

</A>
<BLOCKQUOTE>
<B>paragraph</B>(3f) breaks a long line into a simple paragraph of specified
line length.
<P>
Given a long string break it on spaces into an array such that no
variable is longer than the specified length. Individual words longer
than LENGTH will be placed in variables by themselves.
</BLOCKQUOTE>
<A name=3>

     <H3>OPTIONS</H3>

</A>
<BLOCKQUOTE>
<TABLE cellpadding=3>
<TR valign=top><TD colspan=2>
<B>SOURCE_STRING</B> </TD></TR><TR valign=top><TD width=6%>&nbsp;</TD><TD>
input string to break into an array of shorter strings
on blank delimiters
</TD></TR>
<TR valign=top><TD width=6% nowrap>
<B>LENGTH</B> </TD><TD valign=bottom>
length of lines to break the string into.
</TD></TR>
<TR></TR></TABLE></BLOCKQUOTE>
<A name=4>

     <H3>RETURNS</H3>

</A>
<BLOCKQUOTE>
<TABLE cellpadding=3>
<TR valign=top><TD colspan=2>
<B>PARAGRAPH</B> </TD></TR><TR valign=top><TD width=6%>&nbsp;</TD><TD>
character array filled with data from source_string
broken at spaces into variables of length LENGTH.
</TD></TR>
<TR></TR></TABLE></BLOCKQUOTE>
<A name=5>

     <H3>EXAMPLE</H3>

</A>
<BLOCKQUOTE>
sample program
<P>
<PRE>
   program demo_paragraph
   use M_strings, only : paragraph
   implicit none
   character(len=:),allocatable :: paragrph(:)
   character(len=*),parameter    :: string= &#146;&
    &one two three four five &
    &six seven eight &
    &nine ten eleven twelve &
    &thirteen fourteen fifteen sixteen &
    &seventeen&#146;
<P>
   write(*,*)&#146;LEN=&#146;,len(string)
   write(*,*)&#146;INPUT:&#146;
   write(*,*)string
<P>
   paragrph=paragraph(string,40)
   write(*,*)&#146;LEN=&#146;,len(paragrph),&#146; SIZE=&#146;,size(paragrph)
   write(*,*)&#146;OUTPUT:&#146;
   write(*,&#146;(a)&#146;)paragrph
<P>
   write(*,&#146;(a)&#146;)paragraph(string,0)
   write(*,&#146;(3x,a)&#146;)paragraph(string,47)
<P>
   end program demo_paragraph
<P>
</PRE>
<BLOCKQUOTE>
Results:
<P>
<PRE>
    LEN=         106
    INPUT:
    one two three four five six seven eight nine ten eleven twelve
    thirteen fourteen fifteen sixteen seventeen
    LEN=          40  SIZE=           3
    OUTPUT:
</PRE>
one two three four five six seven eight
nine ten eleven twelve thirteen fourteen
fifteen sixteen seventeen
one
two
three
four
five
six
seven
eight
nine
ten
eleven
twelve
thirteen
fourteen
fifteen
sixteen
seventeen
one two three four five six seven eight nine
ten eleven twelve thirteen fourteen fifteen
sixteen seventeen
</BLOCKQUOTE>
</BLOCKQUOTE>
<A name=6>

     <H3>AUTHOR</H3>

</A>
<BLOCKQUOTE>
John S. Urban
</BLOCKQUOTE>
<A name=7>

     <H3>LICENSE</H3>

</A>
<BLOCKQUOTE>
Public Domain
</BLOCKQUOTE>
<P><HR>
<TABLE width=100%><TR> <TD width=33%><I>Nemo Release 3.1</I></TD> <TD width=33% align=center>paragraph (3m_strings)</TD> <TD align=right width=33%><I>April 30, 2022</I></TD> </TR></TABLE><FONT SIZE=-1>Generated by <A HREF="http://www.squarebox.co.uk/download/manServer.shtml">manServer 1.08</A> from 65bde280-6bf9-4aa7-851a-2e0804eb4624 using man macros.</FONT>
<br><br><center><img src="images/paragraph.gif"></center>
</div>
</div>
</body>
</HTML>
